# A remark file is more informative if the values are prefixed with keywords

use strict;

	## Change these 3 values
	my $infile = "HW-SNPS.txt";
	my $outfile = "HW-SNPS-Key.txt";
	my $key="#SNP";

	print "Write ", $outfile, " \n";
	open IN, "<$infile" or die "cannot open $infile\n";
	open OUT, ">$outfile" or die "cannot open $outfile\n";
	my $line;
	my $cnt;
	
	while ($line = <IN>) {
		if ($line =~ /(\S+)(\s+)(.*)$/) {
			print OUT "$1$2$key=$3\n";
			$cnt++;
		}
		else
		{
			print "Cannot parse $line";
		}
	}

	
	printf("Wrote %d\n", $cnt);			


